; Music of Holocauste (1988) (M.B.C.)
; Ripped by Megachur the 17/04/2009

; Need System Vectors

	write "HOLOCAUS.BIN"

music_date_rip	equ &1149
music_adr	equ &84d0
first_theme	equ 1
last_theme	equ 1	; 1 -> 1

	read "music_header_v1_0.asm"

	jp l84ec	; init 
	jp l851f
	jp l850e
	jp l84dd
.l84dc
	db #00
.l84dd
	ld ix,l8697
	ld a,(ix+#09)
	db #00,#00,#00,#00
	ld (l84dc),a
	ret
;
.init_music
.l84ec
;
	cp #03
	ret nc
	or a
	ret z
	ld de,#ffff
	cp #02
	jr nz,l8502
	ld d,(ix+#01)
	ld e,(ix+#00)
	inc ix
	inc ix
.l8502
	ld b,(ix+#01)
	ld c,(ix+#00)
	call l857d
	jp l850e
.l850e
	ld hl,l8703
	ld de,l86f9
	ld bc,#0009
	ldir
	ld hl,l86f9
	jp #bce3
;
.stop_music_intterupt
.l851f
;
	ld hl,l86f9
	call #bce6
	ld c,#3f
	ld a,#07
	jp l8a13
;
.play_music	;_interrupt
;
	push ix
	push iy
	push hl
	push de
	push af
	push bc
	ld iy,l86f6
	ld ix,l8697
	ld a,(iy+#00)
	or a
	call nz,l870f
	ld a,(iy+#01)
	ld ix,l86a7
	or a
	call nz,l870f
	ld ix,l86b7
	ld a,(iy+#02)
	or a
	call nz,l870f
	ld a,(iy+#00)
	or (iy+#01)
	or (iy+#02)
	call z,l851f
	ld a,(l870e)
	dec a
	jr nz,l8571
	call l8838
	ld a,(l870d)
.l8571
	ld (l870e),a
	pop bc
	pop af
	pop de
	pop hl
	pop iy
	pop ix
	ret
.l857d
	ld hl,l8611
	push bc
	push de
	ld de,l8697
	ld bc,#0010
	ld a,#01
	push hl
	push bc
	ldir
	pop bc
	pop hl
	ld (l86a2),a
	push hl
	push bc
	ld de,l86a7
	ldir
	pop bc
	pop hl
	inc a
	ld (l86b2),a
	ld de,l86b7
	ldir
	inc a
	ld (l86c2),a
	ld a,#01
	ld (l870e),a
	ld iy,l86f6
	ld (iy+#00),a
	ld (iy+#01),a
	ld (iy+#02),a
	pop de
	pop bc
	ld hl,(l86f0)
	ld ix,l8697
	ld (ix+#09),e
	ld (ix+#0a),d
	push de
	push bc
	call l85f2
	pop bc
	pop de
	push bc
	push de
	ld ix,l86a7
	ld hl,(l86f2)
	ld (ix+#09),e
	ld (ix+#0a),d
	call l85f2
	pop de
	pop bc
	ld ix,l86b7
	ld hl,(l86f4)
	ld (ix+#09),e
	ld (ix+#0a),d
.l85f2
	ld a,b
	or c
	jr z,l860a
	push bc
.l85f7
	ld a,(hl)
	bit 7,a
	jr z,l8601
	call l8621
	jr l85f7
.l8601
	ld a,(hl)
	inc hl
	or a
	jr nz,l8601
	pop bc
	dec bc
	jr l85f2
.l860a
	ld (ix+#07),l
	ld (ix+#08),h
	ret
.l8611
	db #00,#00,#01,#00,#01,#03,#01,#00
	db #00,#00,#00,#00,#01,#01,#00,#00
.l8621
	and #07
	dec a
	jr nz,l8633
	ld a,(hl)
	inc hl
	bit 3,a
	ld a,#00
	jr z,l862f
	inc a
.l862f
	ld (ix+#02),a
	ret
.l8633
	dec a
	jr nz,l8648
	inc hl
	ld a,(hl)
	ld (ix+#00),a
	ld (ix+#0e),a
	inc hl
	ld a,(hl)
	ld (ix+#01),a
	ld (ix+#0f),a
	inc hl
	ret
.l8648
	dec a
	jr nz,l8652
	inc hl
	ld a,(hl)
	inc hl
	ld (ix+#0d),a
	ret
.l8652
	dec a
	jr nz,l8657
	inc hl
	ret
.l8657
	dec a
	jr nz,l8671
	inc hl
	ld a,(hl)
	and #0f
	inc a
	ld (ix+#03),a
	ld a,(hl)
	srl a
	srl a
	srl a
	srl a
	inc a
	ld (ix+#04),a
	inc hl
	ret
.l8671
	dec a
	jr nz,l8682
	ld a,(hl)
	and #3f
	srl a
	srl a
	srl a
	ld (ix+#05),a
	inc hl
	ret
.l8682
	dec a
	inc hl
	ret nz
	ld a,(hl)
	inc hl
	push hl
	push ix
	ld b,(ix+#0b)
	and #0f
	ld c,a
	call l89fa
	pop ix
	pop hl
	ret
.l8697
	db #00,#00,#00,#00,#00,#00,#00,#00
.l86a2 equ $ + 3
	db #00,#00,#01,#00,#00,#00,#00,#00
.l86a7
	db #00,#00,#00,#00,#00,#00,#00,#00
.l86b2 equ $ + 3
	db #00,#00,#02,#00,#00,#00,#00,#00
.l86b7
	db #00,#00,#00,#00,#00,#00,#00,#00
.l86c2 equ $ + 3
	db #00,#00,#03,#00,#00,#00,#00,#00
.l86c7
	db #08,#08,#00,#00,#00,#00,#00,#00
.l86d3 equ $ + 4
	db #00,#00,#00,#00,#10,#09,#02,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l86df
	db #20,#0a,#04,#00,#00,#00,#00,#00
.l86ee equ $ + 7
.l86ed equ $ + 6
.l86eb equ $ + 4
	db #00,#00,#00,#00,#00,#00,#00,#00
.l86f6 equ $ + 7
.l86f5 equ $ + 6
.l86f4 equ $ + 5
.l86f2 equ $ + 3
.l86f0 equ $ + 1
	db #00,#9f,#8c,#02,#8d,#f6,#8d,#00
.l86f9 equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
.l8703 equ $ + 4
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#81,#2c,#85,#00,#00
.l870e equ $ + 1
.l870d
	ld b,#00
.l870f
	ld (l86ee),hl
	ld a,(ix+#0c)
	dec a
	jr z,l871c
	ld (ix+#0c),a
	ret
.l871c
	ld a,(ix+#0d)
	ld (ix+#0c),a
	ld a,(ix+#06)
	dec a
	jr z,l872c
	ld (ix+#06),a
	ret
.l872c
	ld h,(ix+#08)
	ld l,(ix+#07)
	ld a,(hl)
	or a
	jr nz,l875e
	inc hl
	ld d,(ix+#0e)
	ld e,(ix+#0f)
	ld (ix+#00),d
	ld (ix+#01),e
	ld b,(ix+#0a)
	ld c,(ix+#09)
	dec bc
	ld (ix+#09),c
	ld (ix+#0a),b
	ld a,b
	or c
	jr z,l8758
	ld a,(hl)
	or a
	jr nz,l875e
.l8758
	ld b,(ix+#0b)
	jp l8a03
.l875e
	cp #80
	jr c,l8768
	call l8621
	ld a,(hl)
	jr l875e
.l8768
	ld de,l8789
	ld a,(hl)
	and #0f
	add e
	ld e,a
	jr nc,l8773
	inc d
.l8773
	ld a,(de)
	ld (ix+#06),a
	ld a,(hl)
	bit 5,a
	jr z,l8799
	inc hl
	ld (ix+#07),l
	ld (ix+#08),h
	ld b,(ix+#0b)
	jp l89dd
.l8789
	inc bc
	inc b
	add hl,bc
	ld b,#0c
	jr l8791
.l8791 equ $ + 1
	ld bc,#0403
	add hl,bc
	add hl,bc
	ld (de),a
	inc h
.l8799 equ $ + 2
	ld bc,#2301
	bit 6,a
	jr z,l87b5
	ld a,(hl)
	push hl
	push ix
	ld b,(ix+#0b)
	ld c,(ix+#03)
	bit 6,a
	jr z,l87af
	ld c,(ix+#04)
.l87af
	call l89ab
	pop ix
	pop hl
.l87b5
	ld a,(hl)
	inc hl
	ld (ix+#07),l
	ld (ix+#08),h
	and #3f
	srl a
	srl a
	srl a
	srl a
	dec hl
	ld b,a
	ld a,(hl)
	and #0f
	ld c,a
	ld h,(ix+#00)
	ld l,(ix+#01)
	ld a,b
	or a
	call nz,l8805
	ld a,(ix+#02)
	push ix
	call l8928
	pop ix
	ld a,(ix+#05)
	add e
	ld b,a
	ld c,d
	push ix
	call l88f7
	pop ix
	ld b,(ix+#0b)
	jp l89ee
.l87f5
	ld bc,#0402
	ex af,af'
	djnz l881b
	ld b,b
	ld bc,#0402
	ex af,af'
	djnz l8822
	ld bc,#0402
.l8805
	push hl
	ld de,l87f5
	ld a,c
	add e
	jr nc,l880e
	inc d
.l880e
	ld e,a
	ld a,b
	ld hl,#00ff
	cp #03
	jr z,l881c
	dec h
	dec a
	jr nz,l881c
.l881b
	inc l
.l881c
	ld a,(de)
	and h
	ld h,a
	ld a,(de)
	xor #ff
.l8822
	and (ix+#00)
	or h
	ld (ix+#00),a
	ld a,(de)
	and l
	ld l,a
	ld a,(de)
	xor #ff
	and (ix+#01)
	or l
	ld (ix+#01),a
	pop hl
	ret
.l8838
	ld iy,l86ed
	ld a,#38
	ld (iy+#00),a
	ld ix,l86c7
	call l8871
	ld ix,l86d3
	call l8871
	ld ix,l86df
	call l8871
	ld c,(iy+#00)
	ld a,#07
	jp l8a13
.l885e
	ld a,(hl)
	and #80
	jr z,l8868
.l8863
	ld a,(hl)
	inc hl
	and #7f
	ret
.l8868
	ld de,#0000
	ld e,(hl)
	or a
	sbc hl,de
	jr l8863
.l8871
	ld h,(ix+#06)
	ld l,(ix+#05)
	call l885e
	ld c,a
	ld (ix+#06),h
	ld (ix+#05),l
	ld a,(iy+#00)
	jr z,l8891
	xor (ix+#00)
	ld (iy+#00),a
	ld a,#06
	call l8a13
.l8891
	ld l,(ix+#03)
	ld h,(ix+#04)
	call l885e
	ld (ix+#03),l
	ld (ix+#04),h
	and #0f
	ld h,#00
	ld l,a
	push hl
	pop de
	ld a,(ix+#0b)
	or a
.l88ab
	jr z,l88b1
	add hl,de
	dec a
	jr l88ab
.l88b1
	srl h
	rr l
	srl h
	rr l
	srl h
	rr l
	srl h
	rr l
	ld c,l
	ld a,(ix+#01)
	call l8a13
	ld h,(ix+#08)
	ld l,(ix+#07)
	call l885e
	ld (ix+#08),h
	ld (ix+#07),l
	ld de,#0000
	ld e,a
	ld hl,#0010
	or a
	sbc hl,de
	ld e,(ix+#09)
	ld d,(ix+#0a)
	or a
	add hl,de
	ld c,l
	ld a,(ix+#02)
	push af
	call l8a13
	pop af
	inc a
	ld c,h
	jp l8a13
.l88f7
	ld hl,l8910
	ld a,c
	sla a
	add l
	jr nc,l8901
	inc h
.l8901
	ld l,a
	ld a,b
	inc a
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
.l8908
	dec a
	ret z
	srl h
	rr l
	jr l8908
.l8910
	dw #0eee,#0e18,#0d4d,#0c8e
	dw #0bda,#0b2f,#0a8f,#09f7
	dw #0968,#08e1,#0861,#07e9
.l8928
	ld ix,l86eb
	ld (l86eb),hl
	ld hl,l8980
	or a
	jr nz,l8938
	ld hl,l897b
.l8938
	ld e,#00
	ld a,c
.l893b
	cp #07
	jr c,l8945
	or a
	sbc #07
	inc e
	jr l893b
.l8945
	push af
	add l
	jr nc,l894a
	inc h
.l894a
	ld l,a
	ld d,(hl)
	ld a,b
	or a
	jr nz,l898e
	ld hl,l8987
	pop af
	add l
	jr nc,l8958
	inc h
.l8958
	ld l,a
	ld a,(hl)
	and (ix+#01)
	jr z,l8965
	and (ix+#00)
	jr nz,l896e
.l8964
	inc d
.l8965
	ld a,d
	cp #0c
	ret c
	inc e
	sbc #0c
	ld d,a
	ret
.l896e
	call l8965
	dec d
	ld a,d
	cp #0c
	ret c
	add #0c
	dec e
	ld d,a
	ret
.l897b
	inc b
	dec b
	rlca
	add hl,bc
	dec bc
.l8980
	inc c
	ld c,#10
	ld de,#1513
	rla
.l8987
	ld bc,#0402
	ex af,af'
	djnz l89ad
	ld b,b
.l898e
	pop af
	ld a,b
	dec a
	jr z,l8964
	dec a
	jr z,l896e
	jr l8965
.l8998
	add hl,de
	dec b
	jr nz,l8998
	ret
.l899d
	ld hl,l86c7
	dec b
	ld de,#000c
	call nz,l8998
	push hl
	pop ix
	ret
.l89ad equ $ + 2
.l89ab
	call l899d
	ld hl,l8a31
	ld de,#0006
	ld b,c
	dec b
	call nz,l8998
	inc ix
	inc ix
	inc ix
	push ix
	pop de
	ld bc,#0006
	ldir
	ret
.l89c8
	ld (ix+#03),l
	ld (ix+#04),h
	add hl,de
	ld (ix+#05),l
	ld (ix+#06),h
	add hl,de
	ld (ix+#07),l
	ld (ix+#08),h
	ret
.l89dd
	call l899d
	ld de,#0002
	ld hl,l89e8
	jr l89c8
.l89e8
	add b
	ld bc,#0180
	adc a
.l89ee equ $ + 1
	ld bc,#cde5
	sbc l
	adc c
	pop hl
	ld (ix+#09),l
	ld (ix+#0a),h
	ret
.l89fa
	push bc
	call l899d
	pop bc
	ld (ix+#0b),c
	ret
.l8a03
	push bc
	call l89dd
	pop bc
	ld c,b
	ld b,#00
	ld hl,l86f5
	add hl,bc
	ld a,#00
	ld (hl),a
	ret
.l8a13
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	ret
.l8a31
	dw l8a91,l8a93,l8a95,l8a97
	dw l8a99,l8a9b,l8aa4,l8aa6
	dw l8aa8,l8ad0,l8b03,l8b05
	dw l8b07,l8b1e,l8b20,l8b22
	dw l8b55,l8b57,l8b60,l8b77
	dw l8b79,l8b81,l8b9f,l8ba1
	dw l8ba3,l8ba9,l8bab,l8bad
	dw l8bcb,l8bcd,l8bd6,l8bdc
	dw l8bde,l8be6,l8c04,l8c06
	dw l8c2f,l8c35,l8c37,l8c60
	dw l8c6f,l8c71,l8c73,l8c82
	dw l8c84,l8c86,l8c9b,l8c9d
.l8a97 equ $ + 6
.l8a95 equ $ + 4
.l8a93 equ $ + 2
.l8a91
	db #8f,#01,#80,#01,#8f,#01,#8f,#01
.l8a9b equ $ + 2
.l8a99
	db #80,#01,#90,#91,#90,#8f,#8e,#8d
.l8aa8 equ $ + 7
.l8aa6 equ $ + 5
.l8aa4 equ $ + 3
	db #8e,#8f,#08,#8f,#01,#80,#01,#8f
	db #90,#8f,#8f,#8f,#8e,#8f,#8f,#8f
	db #90,#90,#8f,#8f,#8e,#8e,#8f,#90
	db #90,#90,#8f,#8e,#8e,#8e,#8f,#90
	db #91,#90,#8f,#8e,#8d,#8e,#8f,#90
.l8ad0 equ $ + 7
	db #92,#90,#8f,#8e,#8c,#8e,#07,#8f
	db #8f,#8f,#8f,#8f,#8f,#8f,#8e,#8e
	db #8e,#8d,#8d,#8d,#8c,#8c,#8c,#8b
	db #8b,#8b,#8a,#8a,#8a,#89,#89,#89
	db #88,#88,#88,#87,#87,#87,#86,#86
	db #86,#85,#85,#85,#84,#84,#84,#83
	db #83,#83,#82,#82,#82,#81,#81,#81
.l8b07 equ $ + 6
.l8b05 equ $ + 4
.l8b03 equ $ + 2
	db #80,#01,#80,#01,#8f,#01,#8f,#8f
	db #8f,#8f,#8e,#8e,#8d,#8d,#8c,#8c
	db #8b,#8a,#89,#88,#87,#86,#85,#84
.l8b20 equ $ + 7
.l8b1e equ $ + 5
	db #83,#82,#81,#80,#01,#80,#01,#8f
.l8b22 equ $ + 1
	db #01,#8f,#8f,#8f,#8f,#8f,#8f,#8f
	db #8e,#8e,#8e,#8d,#8d,#8d,#8c,#8c
	db #8c,#8b,#8b,#8b,#8a,#8a,#8a,#89
	db #89,#89,#88,#88,#88,#87,#87,#87
	db #86,#86,#86,#85,#85,#85,#84,#84
	db #84,#83,#83,#83,#82,#82,#82,#81
.l8b57 equ $ + 6
.l8b55 equ $ + 4
	db #81,#81,#80,#01,#80,#01,#90,#91
.l8b60 equ $ + 7
	db #90,#8f,#8e,#8d,#8e,#8f,#08,#8f
	db #8f,#8f,#8f,#8e,#8e,#8d,#8d,#8c
	db #8c,#8b,#8a,#89,#88,#87,#86,#85
.l8b77 equ $ + 6
	db #84,#83,#82,#81,#80,#01,#80,#01
.l8b79
	db #90,#91,#90,#8f,#8e,#8d,#8e,#07
.l8b81
	db #81,#81,#82,#82,#83,#83,#84,#84
	db #85,#85,#86,#86,#87,#87,#88,#88
	db #89,#89,#8a,#8a,#8b,#8b,#8c,#8c
.l8b9f equ $ + 6
	db #8d,#8d,#8e,#8e,#8f,#01,#80,#01
.l8ba3 equ $ + 2
.l8ba1
	db #8f,#01,#86,#8a,#8c,#8e,#8f,#01
.l8bad equ $ + 4
.l8bab equ $ + 2
.l8ba9
	db #80,#01,#8f,#01,#81,#81,#82,#82
	db #83,#83,#84,#84,#85,#85,#86,#86
	db #87,#87,#88,#88,#89,#89,#8a,#8a
	db #8b,#8b,#8c,#8c,#8d,#8d,#8e,#8e
.l8bcd equ $ + 4
.l8bcb equ $ + 2
	db #8f,#01,#80,#01,#90,#91,#90,#8f
.l8bd6 equ $ + 5
	db #8e,#8d,#8e,#8f,#08,#86,#8a,#8c
.l8bde equ $ + 5
.l8bdc equ $ + 3
	db #8e,#8f,#01,#80,#01,#90,#91,#90
.l8be6 equ $ + 5
	db #8f,#8e,#8d,#8e,#07,#81,#81,#82
	db #82,#83,#83,#84,#84,#85,#85,#86
	db #86,#87,#87,#88,#88,#89,#89,#8a
	db #8a,#8b,#8b,#8c,#8c,#8d,#8d,#8e
.l8c06 equ $ + 5
.l8c04 equ $ + 3
	db #8e,#8f,#01,#80,#01,#8f,#8e,#8f
	db #8f,#8f,#90,#8f,#8f,#8e,#8e,#8f
	db #8f,#90,#90,#8f,#8f,#8e,#8e,#8e
	db #8f,#90,#90,#90,#8f,#8e,#8d,#8e
	db #8f,#90,#91,#90,#8f,#8e,#8c,#8e
.l8c2f equ $ + 6
	db #8f,#90,#92,#90,#8f,#08,#86,#8a
.l8c37 equ $ + 6
.l8c35 equ $ + 4
	db #8c,#8e,#8f,#01,#80,#01,#8f,#90
	db #8f,#8f,#8f,#8e,#8f,#8f,#8f,#90
	db #90,#8f,#8f,#8e,#8e,#8f,#90,#90
	db #90,#8f,#8e,#8e,#8e,#8f,#90,#91
	db #90,#8f,#8e,#8d,#8e,#8f,#90,#92
.l8c60 equ $ + 7
	db #90,#8f,#8e,#8c,#8e,#8f,#08,#8f
	db #8e,#8c,#8a,#88,#86,#85,#84,#83
.l8c6f equ $ + 6
	db #82,#81,#81,#80,#80,#01,#81,#01
.l8c73 equ $ + 2
.l8c71
	db #8f,#01,#8f,#8e,#8c,#8a,#88,#86
	db #85,#84,#83,#82,#81,#81,#80,#80
.l8c86 equ $ + 5
.l8c84 equ $ + 3
.l8c82 equ $ + 1
	db #01,#90,#01,#8f,#01,#8f,#8f,#8f
	db #8f,#8e,#8d,#8c,#8b,#8a,#89,#88
	db #87,#86,#85,#84,#83,#82,#81,#80
.l8c9d equ $ + 4
.l8c9b equ $ + 2
	db #80,#01,#87,#01,#8f,#01,#83,#14
	db #96,#85,#1c,#87,#1f,#89,#84,#35
	db #00,#35,#00,#35,#00,#35,#00,#35
	db #00,#35,#00,#35,#00,#35,#00,#35
	db #00,#54,#87,#54,#87,#00,#54,#84
	db #54,#84,#00,#54,#a5,#54,#a5,#00
	db #54,#80,#54,#80,#00,#30,#00,#54
	db #87,#54,#87,#00,#54,#84,#54,#84
	db #00,#54,#a5,#54,#a5,#00,#54,#80
	db #54,#80,#00,#53,#87,#53,#87,#53
	db #87,#53,#83,#00,#53,#83,#53,#83
	db #00,#53,#86,#53,#86,#53,#86,#00
	db #53,#87,#53,#87,#53,#87,#00,#00
	db #00,#83,#14,#85,#1f,#96,#87,#1a
	db #89,#84,#35,#00,#53,#87,#50,#83
	db #53,#87,#50,#83,#53,#87,#00,#53
	db #87,#50,#83,#53,#87,#50,#83,#53
	db #87,#00,#53,#87,#50,#83,#53,#87
	db #50,#83,#53,#87,#00,#53,#87,#50
	db #83,#53,#87,#50,#83,#53,#87,#00
	db #53,#87,#50,#83,#53,#87,#50,#83
	db #53,#87,#00,#53,#87,#50,#83,#53
	db #87,#50,#83,#53,#87,#00,#53,#87
	db #50,#83,#53,#87,#50,#83,#53,#87
	db #00,#53,#87,#50,#83,#53,#87,#50
	db #83,#53,#87,#00,#53,#87,#50,#83
	db #53,#87,#50,#83,#53,#87,#00,#53
	db #87,#50,#83,#53,#87,#50,#83,#53
	db #87,#00,#53,#87,#50,#83,#53,#87
	db #50,#83,#53,#87,#00,#53,#87,#50
	db #83,#53,#87,#50,#83,#53,#87,#00
	db #53,#87,#50,#83,#53,#87,#50,#83
	db #53,#87,#00,#53,#87,#50,#83,#53
	db #87,#50,#83,#53,#87,#00,#53,#87
	db #50,#83,#53,#87,#50,#83,#53,#87
	db #00,#53,#87,#50,#83,#53,#87,#50
	db #83,#53,#87,#00,#53,#87,#50,#83
	db #53,#87,#50,#83,#53,#87,#00,#53
	db #87,#50,#83,#53,#87,#50,#83,#53
	db #87,#00,#53,#87,#50,#83,#53,#87
	db #50,#83,#53,#87,#00,#53,#87,#50
	db #83,#53,#87,#50,#83,#53,#87,#00
	db #53,#87,#50,#83,#53,#87,#50,#83
	db #53,#87,#00,#00,#00,#83,#14,#85
	db #15,#96,#87,#1f,#89,#84,#35,#00
	db #35,#00,#53,#87,#53,#88,#53,#88
	db #53,#89,#00,#35,#00,#35,#00,#35
	db #00,#53,#87,#53,#8a,#53,#88,#53
	db #89,#00,#35,#00,#35,#00,#35,#00
	db #53,#87,#53,#88,#53,#88,#53,#89
	db #00,#35,#00,#35,#00,#35,#00,#35
	db #00,#53,#87,#53,#8a,#53,#88,#53
	db #89,#00,#35,#00,#53,#87,#53,#87
	db #53,#87,#53,#83,#00,#53,#00,#53
	db #83,#53,#83,#00,#53,#00,#53,#86
	db #53,#86,#53,#86,#00,#53,#87,#53
	db #87,#53,#87,#00,#00
;
.game_name
	db "Holocauste",0
.game_year
	db "1988",0
.game_publisher
	db "M.B.C.",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
